home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / madtrb11.zip / INTR.PAS < prev    next >
Pascal/Delphi Source File  |  1985-08-05  |  1KB  |  45 lines
  1. PROGRAM INTR_Demo;
  2.  
  3. {
  4. This program demonstrates the cursor-control routines
  5. in the INTR.INC file.
  6.  
  7. Source: "INTRoducing The INTR Procedure", TUG Lines Volume I Issue 5
  8. Author: Marshall Brain/Brain Software Systems
  9. Application: IBM PC (and true compatibles)
  10. }
  11.  
  12. var
  13.   q,x,y:byte;
  14.   z:integer;
  15.   temp1,temp2:string[40];
  16.  
  17. {$i INTR.INC}
  18.  
  19. begin
  20.   gotoxy(10,10);write('today''s date is : ');
  21.   getdate(x,y,z);
  22.   str(x,temp2);
  23.   temp1:=temp2+'/';
  24.   str(y,temp2);
  25.   if length(temp2)=1 then temp2:=' '+temp2;
  26.   temp1:=temp1+temp2+'/';
  27.   z:=z-1900;
  28.   str(z,temp2);
  29.   temp1:=temp1+temp2;
  30.   write(temp1);
  31.   gotoxy(10,12);write('the time is : ');
  32.   gettime(x,y,q);
  33.   if x>12 then x:=x-12;
  34.   if x=0 then x:=1;
  35.   str(x,temp2);
  36.   temp1:=temp2+':';
  37.   str(y,temp2);
  38.   if length(temp2)=1 then temp2:='0'+temp2;
  39.   temp1:=temp1+temp2;
  40.   write(temp1);
  41.   gotoxy(10,14);write('the cursor is big : ');
  42.   curson;nosound;sound(700);delay(200);nosound;delay(3300);
  43.   gotoxy(10,14);write('the cursor is off : ');cursoff;delay(3300);
  44.   gotoxy(10,14);write('the cursor is normal : ');cursnorm;delay(3300);
  45. end.